DO BOXT WITH 21,0,'PLEASE WAIT, INDEXING PROCESS !!!!...','GR+*','R',.F.,.T.
SET COLO TO GR+/RB,R/GR+
F1='SUB_AREA'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   DO SIGNI
   INDE ON AREA_CODE TO &DR1&F1
ENDIF
USE
F1='MEDIC_PR'
F11='MEDIC_PC'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F1
   DO SIGNI
   INDE ON SUN_PC TO &DR1&F11
ENDIF
USE
F1='MEDIC'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F1
ENDIF
set exclu off
USE

F1='MED_DISC'
F11='MED_CODE'
IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   INDE ON PROGRAM_NM+AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F1
   INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F11
ENDIF
set exclu off
USE